home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1995 May / cd Ware (Juegos) Epimundo.iso / DOS / C / PROXY.ZIP / PRIMES.PRX < prev    next >
Encoding:
Text File  |  1991-10-06  |  129 b   |  7 lines
  1.  
  2. // primes: integer -> seq(integer)
  3.  
  4. primes(max) {return [n:n<-[2..max];
  5.          !(exists m in {2..n-1};(n % m)==0)];};
  6. end
  7.